home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / c68_445b.zoo / src / diffs.445 next >
Encoding:
Text File  |  1995-01-30  |  36.1 KB  |  1,351 lines
  1. diff -w -c org/analyze.c src/analyze.c
  2. *** org/analyze.c    Wed Jun 15 15:50:23 1994
  3. --- src/analyze.c    Tue Jan 17 08:14:20 1995
  4. ***************
  5. *** 465,470 ****
  6. --- 465,475 ----
  7.       if (csp->voidf || (csp->exp->nodetype == en_icon &&
  8.                  csp->exp->v.i < 16 && csp->exp->v.i >= 0))
  9.       return 0;
  10. + #ifdef TRAP_GEN
  11. +     if (trap_option && csp->exp->nodetype == en_nacon &&
  12. +     !strncmp(csp->exp->v.sp, "_trap_1", (size_t)7))
  13. +     return 0;
  14. + #endif /* TRAP_GEN */
  15.       if (is_lvalue(csp->exp))
  16.       return 2 * csp->uses;
  17.       return csp->uses;
  18. ***************
  19. *** 478,488 ****
  20.       CSE    **lst;
  21.   {
  22.       CSE     *csp1, *csp2;
  23.       csp1 = *lst;
  24.       if (csp1 == 0 || csp1->next == 0)
  25.       return;
  26.       bsort(&(csp1->next));
  27. !     while (csp1 != 0 && (csp2 = csp1->next) != 0 && desire(csp1) < desire(csp2)) {
  28.       *lst = csp2;
  29.       csp1->next = csp2->next;
  30.       csp2->next = csp1;
  31. --- 483,495 ----
  32.       CSE    **lst;
  33.   {
  34.       CSE *csp1, *csp2;
  35. +     register int d1;
  36.       csp1 = *lst;
  37.       if (csp1 == 0 || csp1->next == 0)
  38.       return;
  39.       bsort(&(csp1->next));
  40. !     d1 = desire(csp1);
  41. !     while (csp1 != 0 && (csp2 = csp1->next) != 0 && d1 < desire(csp2)) {
  42.       *lst = csp2;
  43.       csp1->next = csp2->next;
  44.       csp2->next = csp1;
  45. diff -w -c org/cglbdec.h src/cglbdec.h
  46. *** org/cglbdec.h    Wed Jun 15 15:50:23 1994
  47. --- src/cglbdec.h    Tue Jan 17 08:11:16 1995
  48. ***************
  49. *** 97,102 ****
  50. --- 97,105 ----
  51.   #ifdef TRACE
  52.   extern BOOL    trace_option;    /* generate trace code */
  53.   #endif /* TRACE */
  54. + #ifdef TRAP_GEN
  55. + extern BOOL    trap_option;    /* generate traps for gemdos, xbios and bios */
  56. + #endif /* TRAP_GEN */
  57.   extern int    max_error_count; /* maximum number of errors before stopping */
  58.   
  59.   extern TYP     *ret_type;
  60. ***************
  61. *** 147,152 ****
  62. --- 150,158 ----
  63.   #ifdef TARGET_ACK
  64.   extern struct funcs    ack68k_funcs;
  65.   #endif /* TARGET_ACK */
  66. + #ifdef TARGET_JAS
  67. + extern struct funcs    jas68k_funcs;
  68. + #endif /* TARGET_JAS */
  69.   #ifdef TARGET_GAS
  70.   extern struct funcs    gas68k_funcs;
  71.   #endif /* TARGET_GAS */
  72. diff -w -c org/cglbdef.c src/cglbdef.c
  73. *** org/cglbdef.c    Wed Jun 15 15:50:23 1994
  74. --- src/cglbdef.c    Tue Jan 17 08:10:38 1995
  75. ***************
  76. *** 116,122 ****
  77.   #endif /* FORMAT_OPTION */
  78.   #ifdef TRACE
  79.   BOOL     trace_option        = 0;
  80. ! #endif
  81.   #ifdef PROBES
  82.   BOOL     probe_option        = 0;
  83.   #endif /* PROBES */
  84. --- 116,125 ----
  85.   #endif /* FORMAT_OPTION */
  86.   #ifdef TRACE
  87.   BOOL     trace_option        = 0;
  88. ! #endif /* TRACE */
  89. ! #ifdef TRAP_GEN
  90. ! BOOL     trap_option        = 0;
  91. ! #endif /* TRAP_GEN */
  92.   #ifdef PROBES
  93.   BOOL     probe_option        = 0;
  94.   #endif /* PROBES */
  95. ***************
  96. *** 203,208 ****
  97. --- 206,214 ----
  98.   #ifdef TARGET_ACK
  99.   struct funcs    *Funcs  = &ack68k_funcs;
  100.   #else
  101. + #ifdef TARGET_JAS
  102. + struct funcs    *Funcs    = &jas68k_funcs;
  103. + #else
  104.   #ifdef TARGET_GAS
  105.   struct funcs    *Funcs  = &gas68k_funcs;
  106.   #else
  107. ***************
  108. *** 214,219 ****
  109. --- 220,226 ----
  110.   #endif /* TARGET_QMAC */
  111.   #endif /* TARGET_CPM */
  112.   #endif /* TARGET_GAS */
  113. + #endif /* TARGET_JAS */
  114.   #endif /* TARGET_ACK */
  115.   #endif /* MC680X0 */
  116.   
  117. diff -w -c org/chdr.h src/chdr.h
  118. *** org/chdr.h    Wed Jun 15 15:50:31 1994
  119. --- src/chdr.h    Tue Jan 17 08:04:44 1995
  120. ***************
  121. *** 570,576 ****
  122.   #define    WARN_LEVEL2    WARN_AUTOINIT
  123.       WARN_AUTOINIT,
  124.       WARN_NOHEX,
  125. -     WARN_PARAMSIZE,
  126.       WARN_REDEFINE,
  127.       WARN_SIZEOF0,
  128.       WARN_SIZEOFBIG,
  129. --- 570,575 ----
  130. ***************
  131. *** 606,611 ****
  132. --- 605,611 ----
  133.       WARN_IMPLICIT,
  134.       WARN_NOTKANDR,
  135.       WARN_NOTREACHED,
  136. +     WARN_PARAMSIZE,
  137.       WARN_PROTOTYPE,
  138.       WARN_PROMOTE,
  139.       WARN_STORAGE,
  140. diff -w -c org/check.h src/check.h
  141. *** org/check.h    Wed Jun 15 15:50:23 1994
  142. --- src/check.h    Tue Jan 17 08:04:50 1995
  143. ***************
  144. *** 125,137 ****
  145. --- 125,164 ----
  146.   #ifdef TARGET_GAS
  147.   #define MULTIPLE_ASSEMBLERS
  148.   #endif /* TARGET_GAS */
  149. + #ifdef TARGET_QMAC
  150. + #define MULTIPLE_ASSEMBLERS
  151. + #endif /* TARGET_QMAC */
  152. + #ifdef TARGET_JAS
  153. + #define MULTIPLE_ASSEMBLERS
  154. + #endif /* TARGET_JAS */
  155.   #endif /* TARGET_ACK */
  156.   
  157.   #ifdef TARGET_CPM
  158.   #ifdef TARGET_GAS
  159.   #define MULTIPLE_ASSEMBLERS
  160.   #endif /* TARGET_GAS */
  161. + #ifdef TARGET_QMAC
  162. + #define MULTIPLE_ASSEMBLERS
  163. + #endif /* TARGET_QMAC */
  164. + #ifdef TARGET_JAS
  165. + #define MULTIPLE_ASSEMBLERS
  166. + #endif /* TARGET_JAS */
  167.   #endif /* TARGET_CPM */
  168. + 
  169. + #ifdef TARGET_GAS
  170. + #ifdef TARGET_QMAC
  171. + #define MULTIPLE_ASSEMBLERS
  172. + #endif /* TARGET_QMAC */
  173. + #ifdef TARGET_JAS
  174. + #define MULTIPLE_ASSEMBLERS
  175. + #endif /* TARGET_JAS */
  176. + #endif /* TARGET_GAS */
  177. + 
  178. + #ifdef TARGET_QMAC
  179. + #ifdef TARGET_JAS
  180. + #define MULTIPLE_ASSEMBLERS
  181. + #endif /* TARGET_JAS */
  182. + #endif /* TARGET_QMAC */
  183.   #endif /* MC680X0 */
  184.   
  185.   #ifdef INTEL_386
  186. ***************
  187. *** 191,193 ****
  188. --- 218,232 ----
  189.   #endif /* TARGET_SYSV */
  190.   #endif /* TARGET_SUN */
  191.   #endif /* INTEL_8086 */
  192. + 
  193. + #ifdef TRAP_GEN
  194. + #if !defined(MC680X0) || !defined(__TOS__)
  195. + error, cannot do trap generation
  196. + #endif
  197. + #endif /* TRAP_GEN */
  198. + 
  199. + #ifdef JAS_PATCH
  200. + #if !defined(TARGET_JAS) || defined(MULTIPLE_ASSEMBLERS) || defined(RELOC_BUG)
  201. + error, cannot use jas patch
  202. + #endif
  203. + #endif /* JAS_PATCH */
  204. diff -w -c org/cmain.c src/cmain.c
  205. *** org/cmain.c    Wed Jun 15 15:50:24 1994
  206. --- src/cmain.c    Tue Jan 17 08:09:54 1995
  207. ***************
  208. *** 41,46 ****
  209. --- 41,50 ----
  210.   
  211.   #undef P_
  212.   
  213. + #ifdef __MINT__
  214. + long _stksize = 32768L;
  215. + #endif
  216. + 
  217.   static void
  218.   exception(sig)
  219.       int             sig;
  220. ***************
  221. *** 212,219 ****
  222.   #endif /* PROBES */
  223.           {"reg",         invert,      ®_option,        NULL},
  224.           {"revbit",      invert,    &bitfield_option,    NULL},
  225. -         {"short",       invert,    &short_option,        NULL},
  226.           {"separate",    invert,    &IandD_option,        NULL},
  227.   #ifdef STACK_CHECK
  228.           {"stackcheck",  invert,    &stackcheck_option,    NULL},
  229.   #endif /* STACK_CHECK */
  230. --- 216,223 ----
  231.   #endif /* PROBES */
  232.           {"reg",         invert,      ®_option,        NULL},
  233.           {"revbit",      invert,    &bitfield_option,    NULL},
  234.           {"separate",    invert,    &IandD_option,        NULL},
  235. +         {"short",       invert,    &short_option,        NULL},
  236.   #ifdef STACK_CHECK
  237.           {"stackcheck",  invert,    &stackcheck_option,    NULL},
  238.   #endif /* STACK_CHECK */
  239. ***************
  240. *** 223,228 ****
  241. --- 227,235 ----
  242.   #endif /* TRACE */
  243.           {"trad",        invert,    &trad_option,        NULL},
  244.           {"trans",       invert,    &trans_option,        NULL},
  245. + #ifdef TRAP_GEN
  246. +         {"trap",        invert,    &trap_option,        NULL},
  247. + #endif /* TRAP_GEN */
  248.           {"uchar",       invert,    &uchar_option,        NULL},
  249.   #ifdef MULTIPLE_ASSEMBLERS
  250.   #ifdef INTEL_8086
  251. ***************
  252. *** 251,256 ****
  253. --- 258,266 ----
  254.   #ifdef TARGET_ACK
  255.           {"ack68k",      chip,    &ack68k_funcs,        &mc68k_funcs},
  256.   #endif /* TARGET_ACK */
  257. + #ifdef TARGET_JAS
  258. +         {"jas68k",        chip,    &jas68k_funcs,        &mc68k_funcs},
  259. + #endif /* TARGET_JAS */
  260.   #ifdef TARGET_CPM
  261.           {"cpm68k",      chip,    &cpm68k_funcs,        &mc68k_funcs},
  262.   #endif /* TARGET_CPM */
  263. ***************
  264. *** 370,383 ****
  265.       argv++;
  266.       if (argc > 1)
  267.       /* used named file instead of stdout */
  268. !     if ((output = fopen(*argv, "w")) == NULL) {
  269.           message(MSG_OPENFILE,*argv,message_text(MSG_OUTPUT));
  270.           exit(2);
  271.       }
  272.       argv++;
  273.       if (argc > 2)
  274.       /* used named listing file instead of stderr */
  275. !     if ((listfile = fopen(*argv, "w")) == NULL) {
  276.           message(MSG_OPENFILE,*argv,message_text(MSG_LISTING));
  277.           exit(2);
  278.       }
  279. --- 380,393 ----
  280.       argv++;
  281.       if (argc > 1)
  282.       /* used named file instead of stdout */
  283. !     if ((output = fopen(*argv, "wb")) == NULL) {
  284.           message(MSG_OPENFILE,*argv,message_text(MSG_OUTPUT));
  285.           exit(2);
  286.       }
  287.       argv++;
  288.       if (argc > 2)
  289.       /* used named listing file instead of stderr */
  290. !     if ((listfile = fopen(*argv, "wb")) == NULL) {
  291.           message(MSG_OPENFILE,*argv,message_text(MSG_LISTING));
  292.           exit(2);
  293.       }
  294. diff -w -c org/config.c68 src/config.c68
  295. *** org/config.c68    Wed Jun 15 15:50:24 1994
  296. --- src/config.c68    Tue Jan 17 08:05:02 1995
  297. ***************
  298. *** 24,30 ****
  299.   #define    HAS_STDARG        /* system supports stdarg.h */
  300.   #define    FORMAT_CHECK        /* Check fprintf and fscanf format strings */
  301.   #undef    PROBES            /* Support stack probes */
  302. ! #undef    STACK_CHECK        /* library routine to check stack size */
  303.   /*
  304.    *    These options tend not to be changed except when developing
  305.    */
  306. --- 24,30 ----
  307.   #define    HAS_STDARG        /* system supports stdarg.h */
  308.   #define    FORMAT_CHECK        /* Check fprintf and fscanf format strings */
  309.   #undef    PROBES            /* Support stack probes */
  310. ! #define    STACK_CHECK        /* library routine to check stack size */
  311.   /*
  312.    *    These options tend not to be changed except when developing
  313.    */
  314. ***************
  315. *** 79,85 ****
  316.   #undef    MC68020            /* This is an 68020 compiler */
  317.   #undef    MC68030            /* This is an 68030 compiler */
  318.   
  319. ! #define    TARGET_ACK        /* Generate ACK assembler output */
  320.   #undef    TARGET_CPM        /* Generate DRI assembler output */
  321.   #undef    TARGET_GAS        /* Generate GAS assembler output */
  322.   #undef    TARGET_QMAC        /* Generate QMAC assembler output */
  323. --- 79,86 ----
  324.   #undef    MC68020            /* This is an 68020 compiler */
  325.   #undef    MC68030            /* This is an 68030 compiler */
  326.   
  327. ! #undef    TARGET_ACK        /* Generate ACK assembler output */
  328. ! #define    TARGET_JAS        /* Generate JAS assembler output */
  329.   #undef    TARGET_CPM        /* Generate DRI assembler output */
  330.   #undef    TARGET_GAS        /* Generate GAS assembler output */
  331.   #undef    TARGET_QMAC        /* Generate QMAC assembler output */
  332. ***************
  333. *** 90,98 ****
  334.    *    of ACK has this bug fixed, then in some cases slightly more
  335.    *    efficient code is generated if you comment out this option
  336.    */
  337. ! #define    MOVEMBUG        /* Assembler has problems in MOVEM */
  338. ! #define    CMP_BUG            /* Assembler has problems in CMP */ 
  339. ! #define    RELOC_BUG        /* Assembler has problems with Label1-Label2 */
  340.   
  341.   /*
  342.    *    INTEL 386 OPTIONS
  343. --- 91,99 ----
  344.    *    of ACK has this bug fixed, then in some cases slightly more
  345.    *    efficient code is generated if you comment out this option
  346.    */
  347. ! #undef    MOVEMBUG        /* Assembler has problems in MOVEM */
  348. ! #undef    CMP_BUG            /* Assembler has problems in CMP */ 
  349. ! #undef    RELOC_BUG        /* Assembler has problems with Label1-Label2 */
  350.   
  351.   /*
  352.    *    INTEL 386 OPTIONS
  353. ***************
  354. *** 138,144 ****
  355.    *    Ensure that the setting is compatible with the value defined in your
  356.    *    library and header files.
  357.    */
  358. ! #define    TP_SIZE        tp_uint    /* size_t type; either tp_uint or tp_ulong */
  359.   /*
  360.    *    Many K&R compilers have assumed that the result of the pointer
  361.    *    difference operation is an int.  However ANSI assumes that the
  362. --- 139,145 ----
  363.    *    Ensure that the setting is compatible with the value defined in your
  364.    *    library and header files.
  365.    */
  366. ! #define    TP_SIZE        tp_ulong /* size_t type; either tp_uint or tp_ulong */
  367.   /*
  368.    *    Many K&R compilers have assumed that the result of the pointer
  369.    *    difference operation is an int.  However ANSI assumes that the
  370. ***************
  371. *** 146,152 ****
  372.    *    with the value defined in your library and header files.
  373.    *     NOTE: This must be a signed value.
  374.    */
  375. ! #define    TP_PTRDIFF    tp_int    /* ptrdiff_t type; either tp_int or tp_long */
  376.   
  377.   /*
  378.    *    The type of a wide character is implementation defined and has an
  379. --- 147,153 ----
  380.    *    with the value defined in your library and header files.
  381.    *     NOTE: This must be a signed value.
  382.    */
  383. ! #define    TP_PTRDIFF    tp_long    /* ptrdiff_t type; either tp_int or tp_long */
  384.   
  385.   /*
  386.    *    The type of a wide character is implementation defined and has an
  387. diff -w -c org/decl.c src/decl.c
  388. *** org/decl.c    Wed Jun 15 15:50:24 1994
  389. --- src/decl.c    Tue Jan 17 08:05:12 1995
  390. ***************
  391. *** 567,574 ****
  392.   TYP *
  393.   type_name()
  394.   {
  395. !     TYP        *tp;
  396. !     SYM    *sp = 0;
  397.       STORAGE    sc;
  398.   
  399.       switch (lastst) {
  400. --- 567,574 ----
  401.   TYP *
  402.   type_name()
  403.   {
  404. !     TYP        *tp = 0;
  405. !     SYM        *sp;
  406.       STORAGE    sc;
  407.   
  408.       switch (lastst) {
  409. diff -w -c org/expr.c src/expr.c
  410. *** org/expr.c    Wed Jun 15 15:50:25 1994
  411. --- src/expr.c    Tue Jan 17 08:05:24 1995
  412. ***************
  413. *** 583,589 ****
  414.       EXPR    **node;
  415.       TYP        *tp;
  416.   {
  417. !     EXPR    *pnode;
  418.       TYP        *tp1;
  419.       switch (tp->type) {
  420.         case bt_func:    /* ANSI - functions automatically dereferenced */
  421. --- 583,589 ----
  422.       EXPR    **node;
  423.       TYP        *tp;
  424.   {
  425. !     EXPR    *pnode = 0;
  426.       TYP        *tp1;
  427.       switch (tp->type) {
  428.         case bt_func:    /* ANSI - functions automatically dereferenced */
  429. ***************
  430. *** 1143,1149 ****
  431.           fstr = get_stringlit(ep2->v.l);
  432.           format_position = format_start;
  433.           } else if (fstr) {
  434. !         fstr = (pf->func)(fname, pnum, fstr, &format_position, tp);
  435.           }
  436.       }
  437.   #endif /*FORMAT_CHECK*/
  438. --- 1143,1149 ----
  439.           fstr = get_stringlit(ep2->v.l);
  440.           format_position = format_start;
  441.           } else if (fstr) {
  442. !         fstr = (*pf->func)(fname, pnum, fstr, &format_position, tp);
  443.           }
  444.       }
  445.   #endif /*FORMAT_CHECK*/
  446. ***************
  447. *** 1168,1174 ****
  448.       message(ERR_COUNTPARAM, fname);
  449.   #ifdef FORMAT_CHECK
  450.       else if (format_option && (fstr != 0))
  451. !     VOIDCAST (pf->func)(fname, pnum, fstr, &format_position, NIL_TYP);
  452.   #endif /* FORMAT_CHECK */
  453.       return ep1;
  454.   }
  455. --- 1168,1174 ----
  456.       message(ERR_COUNTPARAM, fname);
  457.   #ifdef FORMAT_CHECK
  458.       else if (format_option && (fstr != 0))
  459. !     VOIDCAST (*pf->func)(fname, pnum, fstr, &format_position, NIL_TYP);
  460.   #endif /* FORMAT_CHECK */
  461.       return ep1;
  462.   }
  463. diff -w -c org/gen.h src/gen.h
  464. *** org/gen.h    Wed Jun 15 15:50:25 1994
  465. --- src/gen.h    Tue Jan 17 08:05:34 1995
  466. ***************
  467. *** 108,113 ****
  468. --- 108,116 ----
  469.       op_slo,
  470.       op_sls,
  471.       op_st,
  472. + #ifdef TRAP_GEN
  473. +     op_trap,
  474. + #endif /* TRAP_GEN */
  475.       op_line,
  476.       op_label
  477.   };
  478. ***************
  479. *** 118,129 ****
  480.   enum e_am {
  481.       am_dreg,        /* Dn */
  482.       am_areg,        /* An */
  483. !     am_ind,        /*    */
  484.       am_ainc,        /* (An)+ */
  485.       am_adec,        /* -(An) */
  486.       am_indx,        /* (d16,An) */
  487. !     am_indx2,        /* (d8,An,Dn) */
  488. !     am_indx3,        /* (d8,An,Am) */
  489.       am_direct,        /* (xxx) */
  490.       am_immed,        /* #(data) */
  491.       am_smask,        /* Register mask (D0 high, A7 low) */
  492. --- 121,135 ----
  493.   enum e_am {
  494.       am_dreg,        /* Dn */
  495.       am_areg,        /* An */
  496. !     am_ind,        /* (An) */
  497.       am_ainc,        /* (An)+ */
  498.       am_adec,        /* -(An) */
  499.       am_indx,        /* (d16,An) */
  500. !     am_indx2,        /* (d8,An,Dn.l) */
  501. !     am_indx3,        /* (d8,An,Am.l) */
  502. ! #ifdef JAS_PATCH
  503. !     am_indx4,        /* (d8,An,Dn.w) */
  504. ! #endif /* JAS_PATCH */
  505.       am_direct,        /* (xxx) */
  506.       am_immed,        /* #(data) */
  507.       am_smask,        /* Register mask (D0 high, A7 low) */
  508. ***************
  509. *** 140,146 ****
  510. --- 146,156 ----
  511.   #define FRAMEPTR  14        /* frame pointer register */
  512.   #define STACKPTR  15        /* system stack pointer register */
  513.   
  514. + #ifndef __TOS__
  515.   #define MAX_ADDR 1        /* max. scratch address register (A1) */
  516. + #else
  517. + #define MAX_ADDR 2        /* OS-traps may destroy A2 */
  518. + #endif /* __TOS__ */
  519.   #define MAX_DATA 2        /* max. scratch data    register (D2) */
  520.   
  521.   /* support routines */
  522. ***************
  523. *** 585,611 ****
  524.   
  525.   #undef P_
  526.   
  527. ! #define    put_code(op,len,aps,apd)    (Funcs->Put_code)(op,len,aps,apd)
  528. ! #define    put_string(s)            (Funcs->Put_string)(s)
  529. ! #define    put_label(lab)            (Funcs->Put_label)(lab)
  530. ! #define    put_byte(val)            (Funcs->Put_byte)(val)
  531. ! #define    put_char(val)            (Funcs->Put_char)(val)
  532. ! #define    put_word(val)            (Funcs->Put_word)(val)
  533. ! #define    put_long(val)            (Funcs->Put_long)(val)
  534. ! #define    put_pointer(node)        (Funcs->Put_pointer)(node)
  535. ! #define    put_short(node)            (Funcs->Put_short)(node)
  536. ! #define    put_storage(sp,align)        (Funcs->Put_storage)(sp,align)
  537. ! #define    dumplits()            (Funcs->Dumplits)()
  538. ! #define    put_external(s)            (Funcs->Put_external)(s)
  539. ! #define    put_global(s)            (Funcs->Put_global)(s)
  540. ! #define    put_align(align)        (Funcs->Put_align)(align)
  541. ! #define    nl()                (Funcs->Nl)()
  542. ! #define    cseg()                (Funcs->Cseg)()
  543. ! #define    dseg()                (Funcs->Dseg)()
  544.   #ifdef FLOAT_SUPPORT
  545. ! #define    put_float(val)            (Funcs->Put_float)(val)
  546. ! #define put_double(val)            (Funcs->Put_double)(val)
  547. ! #define put_longdouble(val)        (Funcs->Put_longdouble)(val)
  548.   #endif /* FLOAT_SUPPORT */
  549.   #endif /* MULTIPLE_ASSEMBLERS */
  550.   
  551. --- 595,621 ----
  552.   
  553.   #undef P_
  554.   
  555. ! #define    put_code(op,len,aps,apd)    (*Funcs->Put_code)(op,len,aps,apd)
  556. ! #define    put_string(s)            (*Funcs->Put_string)(s)
  557. ! #define    put_label(lab)            (*Funcs->Put_label)(lab)
  558. ! #define    put_byte(val)            (*Funcs->Put_byte)(val)
  559. ! #define    put_char(val)            (*Funcs->Put_char)(val)
  560. ! #define    put_word(val)            (*Funcs->Put_word)(val)
  561. ! #define    put_long(val)            (*Funcs->Put_long)(val)
  562. ! #define    put_pointer(node)        (*Funcs->Put_pointer)(node)
  563. ! #define    put_short(node)            (*Funcs->Put_short)(node)
  564. ! #define    put_storage(sp,align)        (*Funcs->Put_storage)(sp,align)
  565. ! #define    dumplits()            (*Funcs->Dumplits)()
  566. ! #define    put_external(s)            (*Funcs->Put_external)(s)
  567. ! #define    put_global(s)            (*Funcs->Put_global)(s)
  568. ! #define    put_align(align)        (*Funcs->Put_align)(align)
  569. ! #define    nl()                (*Funcs->Nl)()
  570. ! #define    cseg()                (*Funcs->Cseg)()
  571. ! #define    dseg()                (*Funcs->Dseg)()
  572.   #ifdef FLOAT_SUPPORT
  573. ! #define    put_float(val)            (*Funcs->Put_float)(val)
  574. ! #define put_double(val)            (*Funcs->Put_double)(val)
  575. ! #define put_longdouble(val)        (*Funcs->Put_longdouble)(val)
  576.   #endif /* FLOAT_SUPPORT */
  577.   #endif /* MULTIPLE_ASSEMBLERS */
  578.   
  579. ***************
  580. *** 643,660 ****
  581.   #endif /* MC680X0 */
  582.       };
  583.   
  584. ! #define    g_expr(node,flags)        (GFuncs->G_expr)(node,flags)
  585. ! #define    g_truejp(node,label)        (GFuncs->G_truejp)(node,label)
  586. ! #define    g_falsejp(node,label)        (GFuncs->G_falsejp)(node,label)
  587. ! #define g_stack(bytes)            (GFuncs->G_stack)(bytes)
  588. ! #define    g_switch_table(ep,sw,min,max)    (GFuncs->G_switch_table)(ep,sw,min,max)
  589. ! #define    g_switch_compare(ep,stmt)    (GFuncs->G_switch_compare)(ep,stmt)
  590. ! #define    g_entry(size)            (GFuncs->G_entry)(size)
  591. ! #define    g_return(ep,tp)            (GFuncs->G_return)(ep,tp)
  592. ! #define    g_epilogue()            (GFuncs->G_epilogue)()
  593. ! #define    allocate(csp)            (GFuncs->Allocate)(csp)
  594.   #ifdef MC680X0
  595. ! #define    is_short(node)            (GFuncs->Isshort)(node)
  596.   #endif /* MC680X0 */
  597.   #endif /* MULTIPLE_PROCESSORS */
  598.   
  599. --- 653,670 ----
  600.   #endif /* MC680X0 */
  601.       };
  602.   
  603. ! #define    g_expr(node,flags)        (*GFuncs->G_expr)(node,flags)
  604. ! #define    g_truejp(node,label)        (*GFuncs->G_truejp)(node,label)
  605. ! #define    g_falsejp(node,label)        (*GFuncs->G_falsejp)(node,label)
  606. ! #define g_stack(bytes)            (*GFuncs->G_stack)(bytes)
  607. ! #define    g_switch_table(ep,sw,min,max)    (*GFuncs->G_switch_table)(ep,sw,min,max)
  608. ! #define    g_switch_compare(ep,stmt)    (*GFuncs->G_switch_compare)(ep,stmt)
  609. ! #define    g_entry(size)            (*GFuncs->G_entry)(size)
  610. ! #define    g_return(ep,tp)            (*GFuncs->G_return)(ep,tp)
  611. ! #define    g_epilogue()            (*GFuncs->G_epilogue)()
  612. ! #define    allocate(csp)            (*GFuncs->Allocate)(csp)
  613.   #ifdef MC680X0
  614. ! #define    is_short(node)            (*GFuncs->Isshort)(node)
  615.   #endif /* MC680X0 */
  616.   #endif /* MULTIPLE_PROCESSORS */
  617.   
  618. diff -w -c org/gen68k.c src/gen68k.c
  619. *** org/gen68k.c    Wed Jun 15 15:50:26 1994
  620. --- src/gen68k.c    Wed Jan 18 02:47:40 1995
  621. ***************
  622. *** 2442,2451 ****
  623.       ADDRESS    *ap;
  624.       EXPR    *ep0 = node->v.p[0];
  625.       SIZE     size;
  626.   #ifdef FLOAT_IEEE
  627.       int         numregs;
  628.   #endif /* FLOAT_IEEE */
  629. !     /* The stack adustment cannot be delayed if:
  630.        * 1.  The alloca() routine is called
  631.        * 2.  The function call is via a variable
  632.        * 3.  The function starts with an underscore character
  633. --- 2442,2452 ----
  634.       ADDRESS    *ap;
  635.       EXPR    *ep0 = node->v.p[0];
  636.       SIZE     size;
  637. +     OPCODE     op;
  638.   #ifdef FLOAT_IEEE
  639.       int         numregs;
  640.   #endif /* FLOAT_IEEE */
  641. !     /* The stack adjustment cannot be delayed if:
  642.        * 1.  The alloca() routine is called
  643.        * 2.  The function call is via a variable
  644.        * 3.  The function starts with an underscore character
  645. ***************
  646. *** 2488,2504 ****
  647.       /* call the function */
  648.       switch (ep0->nodetype) {
  649.         case en_nacon:
  650.         case en_labcon:
  651.       ap = mk_direct(ep0);
  652.       break;
  653.         default:
  654.       ap = g_expr(ep0, F_AREG);
  655.       ap = copy_addr(ap, am_ind);
  656.       freeop(ap);
  657.       break;
  658.       }
  659. !     g_code(op_jsr, 0, ap, NIL_ADDRESS);
  660. ! 
  661.   #ifdef FLOAT_IEEE
  662.       return func_result(flags, size, numregs);
  663.   #else
  664. --- 2489,2530 ----
  665.       /* call the function */
  666.       switch (ep0->nodetype) {
  667.         case en_nacon:
  668. + #ifdef TRAP_GEN
  669. +     if (trap_option) {
  670. +         int trap_nr = 0;
  671. + 
  672. +         if (!strncmp(ep0->v.sp, "_trap_1", (size_t)7))
  673. +         switch (ep0->v.sp[7]) {
  674. +         case '_':
  675. +             trap_nr = 1;
  676. +             break;
  677. +         case '3':
  678. +             trap_nr = 13;
  679. +             break;
  680. +         case '4':
  681. +             trap_nr = 14;
  682. +             break;
  683. +         }
  684. +         if (trap_nr) {
  685. +         op = op_trap;
  686. +         ap = mk_immed((long)trap_nr);
  687. +         break;
  688. +         }
  689. +     }
  690. +     /*FALLTHRU*/
  691. + #endif /* TRAP_GEN */
  692.         case en_labcon:
  693. +     op = op_jsr;
  694.       ap = mk_direct(ep0);
  695.       break;
  696.         default:
  697. +     op = op_jsr;
  698.       ap = g_expr(ep0, F_AREG);
  699.       ap = copy_addr(ap, am_ind);
  700.       freeop(ap);
  701.       break;
  702.       }
  703. !     g_code(op, 0, ap, NIL_ADDRESS);
  704.   #ifdef FLOAT_IEEE
  705.       return func_result(flags, size, numregs);
  706.   #else
  707. ***************
  708. *** 3185,3190 ****
  709. --- 3211,3219 ----
  710.       call_library(SUP_FPTST);
  711.       break;
  712.   #endif /* FLOAT_MFFP */
  713. + #if !defined(FLOAT_SUPPORT) && defined(__SOZOBONX__)
  714. +       case 0:
  715. + #endif
  716.         default:
  717.       ap = g_expr(node, F_DREG | F_MEM);
  718.       g_code(op_tst, (int) node->esize, ap, NIL_ADDRESS);
  719. ***************
  720. *** 3362,3367 ****
  721. --- 3391,3397 ----
  722.   #else
  723.       /* jump table contains 2 byte offset of case branches */
  724.       g_code(op_add, 4, ap, ap);
  725. + #ifndef JAS_PATCH
  726.       if (IandD_option) {
  727.       g_code(op_add, 4, ap, ap1);
  728.       freeop(ap1);
  729. ***************
  730. *** 3376,3393 ****
  731.       freeop(ap2);
  732.       ap2 = copy_addr(ap2, am_ind);
  733.       } else {
  734.       freeop(ap1);
  735.       ap2 = copy_addr(ap1, am_indx2);
  736.       ap2->sreg = ap->preg;
  737.       ap2->offset = mk_const(0l);
  738.       g_code(op_add, 2, ap2, ap1);
  739.       ap2 = copy_addr(ap2, am_ind);
  740.       }
  741.       sync_stack();
  742.       g_code(op_jmp, 0, ap2, NIL_ADDRESS);
  743.       if (IandD_option)
  744.       g_label (sw->beglab);
  745. ! #endif
  746.       freeop(ap);
  747.   }
  748.   
  749. --- 3406,3438 ----
  750.       freeop(ap2);
  751.       ap2 = copy_addr(ap2, am_ind);
  752.       } else {
  753. + #endif /* JAS_PATCH */
  754.       freeop(ap1);
  755.       ap2 = copy_addr(ap1, am_indx2);
  756.       ap2->sreg = ap->preg;
  757.       ap2->offset = mk_const(0l);
  758. + #ifdef JAS_PATCH
  759. +     g_code(op_lea, 0, ap2, ap1);
  760. + #else
  761.       g_code(op_add, 2, ap2, ap1);
  762. + #endif /* JAS_PATCH */
  763.       ap2 = copy_addr(ap2, am_ind);
  764. + #ifndef JAS_PATCH
  765.       }
  766. + #endif /* JAS_PATCH */
  767.       sync_stack();
  768. + #ifdef JAS_PATCH
  769. +     g_code(op_move, 2, ap2, ap);
  770. +     ap2 = copy_addr(ap1, am_indx4);
  771. +     ap2->sreg = ap->preg;
  772. +     ap2->offset = mk_const(0l);
  773. + #endif /* JAS_PATCH */
  774.       g_code(op_jmp, 0, ap2, NIL_ADDRESS);
  775. + #ifndef JAS_PATCH
  776.       if (IandD_option)
  777.       g_label (sw->beglab);
  778. ! #endif /* JAS_PATCH */
  779. ! #endif /* RELOC_BUG */
  780.       freeop(ap);
  781.   }
  782.   
  783. diff -w -c org/genstmt.c src/genstmt.c
  784. *** org/genstmt.c    Wed Jun 15 15:50:27 1994
  785. --- src/genstmt.c    Tue Jan 17 08:05:58 1995
  786. ***************
  787. *** 48,56 ****
  788.   static void genreturn P_((STMT *stmt));
  789.   static void genstmt P_((STMT *stmt));
  790.   
  791. - #undef P_
  792. - 
  793. - 
  794.   
  795.   static void
  796.   genwhile(stmt)
  797. --- 48,53 ----
  798. diff -w -c org/genutil.c src/genutil.c
  799. *** org/genutil.c    Wed Jun 15 15:50:27 1994
  800. --- src/genutil.c    Tue Jan 17 08:06:06 1995
  801. ***************
  802. *** 333,341 ****
  803.         case en_add:
  804.         case en_sub:
  805.       return tst_const(node->v.p[0]) && tst_const( node->v.p[1]);
  806. - #ifndef RELOC_BUG
  807. -       case en_cast:
  808. - #endif
  809.         case en_uminus:
  810.       return tst_const(node->v.p[0]);
  811.       }
  812. --- 333,338 ----
  813. diff -w -c org/getsym.c src/getsym.c
  814. *** org/getsym.c    Wed Jun 15 15:50:27 1994
  815. --- src/getsym.c    Sat Jan 21 14:58:20 1995
  816. ***************
  817. *** 36,48 ****
  818.   #define P_(s) ()
  819.   #endif
  820.   
  821.   /* getsym.c */
  822.   static int key            P_((char *));
  823.   static char *insert        P_((char *, TOKEN));
  824.   static char *found        P_((char *));
  825. - static int isidch         P_((int));
  826.   static int is_octal_digit    P_((int));
  827. - static int is_hex_digit        P_((int));
  828.   static int getline        P_((void));
  829.   static int getsch        P_((int));
  830.   static int radix36        P_((int));
  831. --- 36,54 ----
  832.   #define P_(s) ()
  833.   #endif
  834.   
  835. + #ifdef __MINT__
  836. + #define is_hex_digit        isxdigit
  837. + #define isidch            iscym
  838. + #else
  839. + static int isidch         P_((int));
  840. + static int is_hex_digit        P_((int));
  841. + #endif /* __MINT__ */
  842. + 
  843.   /* getsym.c */
  844.   static int key            P_((char *));
  845.   static char *insert        P_((char *, TOKEN));
  846.   static char *found        P_((char *));
  847.   static int is_octal_digit    P_((int));
  848.   static int getline        P_((void));
  849.   static int getsch        P_((int));
  850.   static int radix36        P_((int));
  851. ***************
  852. *** 74,80 ****
  853.   
  854.   static BOOL    overflow;
  855.   static WPTR    hash[MAXKEY];
  856. ! static char     linein[500];
  857.   static char    *lptr,*sptr;
  858.   static int      lineno;
  859.   static size_t   max_string;
  860. --- 80,86 ----
  861.   
  862.   static BOOL    overflow;
  863.   static WPTR    hash[MAXKEY];
  864. ! static char     linein[1024];
  865.   static char    *lptr,*sptr;
  866.   static int      lineno;
  867.   static size_t   max_string;
  868. ***************
  869. *** 82,92 ****
  870.   /* calculate the key for the hash function */
  871.   static int
  872.   key(p)
  873. !     char *p;
  874.   {
  875. !     int  sum;
  876.       for (sum=0; *p; )
  877. !     sum += *p++;
  878.       return (sum % MAXKEY);
  879.   }
  880.   
  881. --- 88,98 ----
  882.   /* calculate the key for the hash function */
  883.   static int
  884.   key(p)
  885. !     register char *p;
  886.   {
  887. !     register unsigned int sum;
  888.       for (sum=0; *p; )
  889. !     sum += (sum << 5) + *p++;
  890.       return (sum % MAXKEY);
  891.   }
  892.   
  893. ***************
  894. *** 153,159 ****
  895.   isidch(c)
  896.       int            c;
  897.   {
  898. !     return isalnum(c) || c == '_' || c == '$';
  899.   }
  900.   
  901.   #endif
  902. --- 159,165 ----
  903.   isidch(c)
  904.       int            c;
  905.   {
  906. !     return isalnum(c) || c == '_' /* || c == '$' */;
  907.   }
  908.   
  909.   #endif
  910. ***************
  911. *** 191,196 ****
  912. --- 197,203 ----
  913.       return (c>= '0' && c <= '7');
  914.   }
  915.   
  916. + #ifndef is_hex_digit
  917.   static int
  918.   is_hex_digit(c)
  919.       int c;
  920. ***************
  921. *** 203,208 ****
  922. --- 210,216 ----
  923.               (c>= 'A' && c<='F'));
  924.   }
  925.   
  926. + #endif
  927.   
  928.   void
  929.   initsym()
  930. diff -w -c org/msgout.c src/msgout.c
  931. *** org/msgout.c    Wed Jun 15 15:50:28 1994
  932. --- src/msgout.c    Tue Jan 17 08:06:26 1995
  933. ***************
  934. *** 52,64 ****
  935.   #  define P3(p1, p2, p3, p4, p5, p6)    (p1 p2, p3 p4, p5 p6, ...)
  936.   # else
  937.   #  define P1(p1, p2)    (p2) p1 p2;
  938. ! #  define P2(p1, p2, p3, p4, p5, p6)    (p2, p4, p6) p1 p2; p3 p4; p5 p6
  939.   # endif
  940.   #else
  941.   # include <varargs.h>
  942.   # define VA_START(a,s)    va_start(a)
  943.   # define P1(p1, p2)    (p2, va_alist) p1 p2; va_dcl
  944. ! # define P2(p1, p2, p3, p4)    (p2, p4, va_alist) p1 p2; p3 p4; va_dcl
  945.   #endif
  946.   
  947.   #ifdef HAS_NLS
  948. --- 52,64 ----
  949.   #  define P3(p1, p2, p3, p4, p5, p6)    (p1 p2, p3 p4, p5 p6, ...)
  950.   # else
  951.   #  define P1(p1, p2)    (p2) p1 p2;
  952. ! #  define P3(p1, p2, p3, p4, p5, p6)    (p2, p4, p6) p1 p2; p3 p4; p5 p6
  953.   # endif
  954.   #else
  955.   # include <varargs.h>
  956.   # define VA_START(a,s)    va_start(a)
  957.   # define P1(p1, p2)    (p2, va_alist) p1 p2; va_dcl
  958. ! # define P3(p1, p2, p3, p4)    (p2, p4, va_alist) p1 p2; p3 p4; va_dcl
  959.   #endif
  960.   
  961.   #ifdef HAS_NLS
  962. ***************
  963. *** 206,212 ****
  964.    */
  965.   /* WARN_AUTOINIT   */    "auto initialisation not reached",
  966.   /* WARN_NOHEX       */    "\\x not followed by any hex characters",
  967. - /* WARN_PARAMSIZE  */    "size of parameter %d changed by prototype on function %s",
  968.   /* WARN_REDEFINE   */    "redefinition of '%s'",
  969.   /* WARN_SIZEOF0    */    "'sizeof' value is zero",
  970.   /* WARN_SIZEOFBIG  */    "'sizeof' value %ld is greater than '65535'",
  971. --- 206,211 ----
  972. ***************
  973. *** 240,245 ****
  974. --- 239,245 ----
  975.   /* WARN_IMPLICIT   */    "argument '%s' implicitly declared 'int'",
  976.   /* WARN_NOTKANDR   */    "the use of '%s' is not allowed under strict K&R C",
  977.   /* WARN_NOTREACHED */    "statement not reached",
  978. + /* WARN_PARAMSIZE  */    "size of parameter %d changed by prototype on function %s",
  979.   /* WARN_PROTOTYPE  */    "K&R style function %s",
  980.   /* WARN_PROMOTE    */    "parameter %d to function %s() promoted to '%s'",
  981.   /* WARN_STORAGE    */    "storage specifier not at start of definition",
  982. ***************
  983. *** 284,290 ****
  984.   /*
  985.    *    Miscellaneous messages
  986.    */
  987. ! /* MSG_DEFAULTS    */   "\n\nDefault settings are:-\n",
  988.   /* MSG_ERROR       */    "error",
  989.   /* MSG_ERRORCNT       */    "\n -- %d errors found",
  990.   /* MSG_EXTRAPARAM  */    "too many parameters supplied",
  991. --- 284,290 ----
  992.   /*
  993.    *    Miscellaneous messages
  994.    */
  995. ! /* MSG_DEFAULTS    */   "\n\nDefault settings are:\n",
  996.   /* MSG_ERROR       */    "error",
  997.   /* MSG_ERRORCNT       */    "\n -- %d errors found",
  998.   /* MSG_EXTRAPARAM  */    "too many parameters supplied",
  999. diff -w -c org/optimize.c src/optimize.c
  1000. *** org/optimize.c    Wed Jun 15 15:50:28 1994
  1001. --- src/optimize.c    Tue Jan 17 08:06:34 1995
  1002. ***************
  1003. *** 318,329 ****
  1004.   /*
  1005.    * return which power of two i is or -1.
  1006.    */
  1007. !     long            i;
  1008.   {
  1009. !     int             p;
  1010. !     long            q;
  1011. !     q = 2;
  1012. !     p = 1;
  1013.       while (q > 0) {
  1014.       if (q == i)
  1015.           return p;
  1016. --- 318,328 ----
  1017.   /*
  1018.    * return which power of two i is or -1.
  1019.    */
  1020. !     register long   i;
  1021.   {
  1022. !     register int    p = 1;
  1023. !     register long   q = 2;
  1024. ! 
  1025.       while (q > 0) {
  1026.       if (q == i)
  1027.           return p;
  1028. diff -w -c org/out68k_ack.c src/out68k_ack.c
  1029. *** org/out68k_ack.c    Wed Jun 15 15:50:28 1994
  1030. --- src/out68k_ack.c    Tue Jan 17 08:06:42 1995
  1031. ***************
  1032. *** 170,175 ****
  1033. --- 170,178 ----
  1034.       "scs",         /* op_slo */
  1035.       "sls",         /* op_sls */
  1036.       "st",        /* op_st */
  1037. + #ifdef TRAP_GEN
  1038. +     "trap",        /* op_trap */
  1039. + #endif /* TRAP_GEN */
  1040.       ".line",    /* op_line */
  1041.       0,        /* op_label */
  1042.   };
  1043. ***************
  1044. *** 653,659 ****
  1045.       VOIDCAST time (&time_of_day);
  1046.   #endif /* VERBOSE */
  1047.       init_done++;
  1048. !     oprintf("%s Generated by %s %s %s (%s) from \"%s\"\n",
  1049.           comment, PROGNAME, VERSION, LAST_CHANGE_DATE, __DATE__, act_file);
  1050.   #ifdef VERBOSE
  1051.       oprintf("%s Compilation date/time: %s\n", comment, ctime(&time_of_day));
  1052. --- 656,662 ----
  1053.       VOIDCAST time (&time_of_day);
  1054.   #endif /* VERBOSE */
  1055.       init_done++;
  1056. !     oprintf("%s Generated by %s v%s, %s (%s) from \"%s\"\n",
  1057.           comment, PROGNAME, VERSION, LAST_CHANGE_DATE, __DATE__, act_file);
  1058.   #ifdef VERBOSE
  1059.       oprintf("%s Compilation date/time: %s\n", comment, ctime(&time_of_day));
  1060. diff -w -c org/out68k_cpm.c src/out68k_cpm.c
  1061. *** org/out68k_cpm.c    Wed Jun 15 15:50:29 1994
  1062. --- src/out68k_cpm.c    Tue Jan 17 08:06:50 1995
  1063. ***************
  1064. *** 170,175 ****
  1065. --- 170,178 ----
  1066.       "scs",         /* op_slo */
  1067.       "sls",         /* op_sls */
  1068.       "st",        /* op_st */
  1069. + #ifdef TRAP_GEN
  1070. +     "trap",        /* op_trap */
  1071. + #endif /* TRAP_GEN */
  1072.       "*.line",    /* op_line */
  1073.       0,        /* op_label */
  1074.   };
  1075. ***************
  1076. *** 451,457 ****
  1077.       int             val;
  1078.   {
  1079.       put_header(wordgen, (SIZE)AL_SHORT);
  1080. !     oprintf(",%d", val & 0xffff);
  1081.       outcol += 6;
  1082.   }
  1083.   
  1084. --- 454,460 ----
  1085.       int             val;
  1086.   {
  1087.       put_header(wordgen, (SIZE)AL_SHORT);
  1088. !     oprintf("%d", val & 0xffff);
  1089.       outcol += 6;
  1090.   }
  1091.   
  1092. ***************
  1093. *** 568,573 ****
  1094. --- 571,577 ----
  1095.       else
  1096.       cseg();
  1097.       for ( ; strtab != 0; strtab = strtab->next) {
  1098. +     nl();
  1099.       put_label(strtab->label);
  1100.       cp = strtab->str;
  1101.       for (len = strtab->len; len--; )
  1102. ***************
  1103. *** 619,628 ****
  1104.   {
  1105.       static BOOL    init_done = 0;
  1106.       if (init_done == 0) {
  1107.       time_t time_of_day;
  1108.       VOIDCAST time (&time_of_day);
  1109.       init_done++;
  1110. !     oprintf("%s Generated by %s %s %s (%s) from \"%s\"\n",
  1111.           comment, PROGNAME, VERSION, LAST_CHANGE_DATE, __DATE__, act_file);
  1112.   #ifdef VERBOSE
  1113.       oprintf("%s Compilation date/time: %s\n", comment, ctime(&time_of_day));
  1114. --- 623,634 ----
  1115.   {
  1116.       static BOOL    init_done = 0;
  1117.       if (init_done == 0) {
  1118. + #ifdef VERBOSE
  1119.       time_t time_of_day;
  1120.       VOIDCAST time (&time_of_day);
  1121. + #endif /* VERBOSE */
  1122.       init_done++;
  1123. !     oprintf("%s Generated by %s v%s, %s (%s) from \"%s\"\n",
  1124.           comment, PROGNAME, VERSION, LAST_CHANGE_DATE, __DATE__, act_file);
  1125.   #ifdef VERBOSE
  1126.       oprintf("%s Compilation date/time: %s\n", comment, ctime(&time_of_day));
  1127. ***************
  1128. *** 641,647 ****
  1129.   {
  1130.       nl();
  1131.       if (curseg != segtype) {
  1132. !     oprintf("\t.sect\t%s\n", segname);
  1133.       curseg = segtype;
  1134.       align_type = 0;
  1135.       }
  1136. --- 647,653 ----
  1137.   {
  1138.       nl();
  1139.       if (curseg != segtype) {
  1140. !     oprintf("\t%s\n", segname);
  1141.       curseg = segtype;
  1142.       align_type = 0;
  1143.       }
  1144. diff -w -c org/out68k_gas.c src/out68k_gas.c
  1145. *** org/out68k_gas.c    Wed Jun 15 15:50:29 1994
  1146. --- src/out68k_gas.c    Tue Jan 17 08:06:58 1995
  1147. ***************
  1148. *** 171,176 ****
  1149. --- 171,179 ----
  1150.       "scs",         /* op_slo */
  1151.       "sls",         /* op_sls */
  1152.       "st",        /* op_st */
  1153. + #ifdef TRAP_GEN
  1154. +     "trap",        /* op_trap */
  1155. + #endif /* TRAP_GEN */
  1156.       "#.line",    /* op_line */
  1157.       0,        /* op_label */
  1158.   };
  1159. ***************
  1160. *** 452,458 ****
  1161.       int             val;
  1162.   {
  1163.       put_header (wordgen, (SIZE)AL_SHORT);
  1164. !     oprintf(",%d", val & 0xffffff);
  1165.       outcol += 6;
  1166.   }
  1167.   
  1168. --- 455,461 ----
  1169.       int             val;
  1170.   {
  1171.       put_header (wordgen, (SIZE)AL_SHORT);
  1172. !     oprintf("%d", val & 0xffffff);
  1173.       outcol += 6;
  1174.   }
  1175.   
  1176. ***************
  1177. *** 572,577 ****
  1178. --- 575,581 ----
  1179.       else
  1180.       cseg();
  1181.       for ( ; strtab != 0; strtab = strtab->next) {
  1182. +     nl();
  1183.       put_label(strtab->label);
  1184.       cp = strtab->str;
  1185.       for (len = strtab->len; len--; )
  1186. ***************
  1187. *** 622,631 ****
  1188.   {
  1189.       static BOOL    init_done = 0;
  1190.       if (init_done == 0) {
  1191.       time_t time_of_day;
  1192.       VOIDCAST time (&time_of_day);
  1193.       init_done++;
  1194. !     oprintf("%s Generated by %s %s %s (%s) from \"%s\"\n",
  1195.           comment, PROGNAME, VERSION, LAST_CHANGE_DATE, __DATE__, act_file);
  1196.   #ifdef VERBOSE
  1197.       oprintf("%s Compilation date/time: %s\n", comment, ctime(&time_of_day));
  1198. --- 626,637 ----
  1199.   {
  1200.       static BOOL    init_done = 0;
  1201.       if (init_done == 0) {
  1202. + #ifdef VERBOSE
  1203.       time_t time_of_day;
  1204.       VOIDCAST time (&time_of_day);
  1205. + #endif /* VERBOSE */
  1206.       init_done++;
  1207. !     oprintf("%s Generated by %s v%s, %s (%s) from \"%s\"\n",
  1208.           comment, PROGNAME, VERSION, LAST_CHANGE_DATE, __DATE__, act_file);
  1209.   #ifdef VERBOSE
  1210.       oprintf("%s Compilation date/time: %s\n", comment, ctime(&time_of_day));
  1211. diff -w -c org/out68k_qmc.c src/out68k_qmc.c
  1212. *** org/out68k_qmc.c    Wed Jun 15 15:50:30 1994
  1213. --- src/out68k_qmc.c    Tue Jan 17 08:07:08 1995
  1214. ***************
  1215. *** 162,167 ****
  1216. --- 162,170 ----
  1217.       "SCS",         /* op_slo */
  1218.       "SLS",         /* op_sls */
  1219.       "ST",        /* op_st */
  1220. + #ifdef TRAP_GEN
  1221. +     "TRAP",        /* op_trap */
  1222. + #endif /* TRAP_GEN */
  1223.       "COMMENT",    /* op_line */
  1224.       0,        /* op_label */
  1225.   };
  1226. ***************
  1227. *** 640,646 ****
  1228.       time_t time_of_day;
  1229.       VOIDCAST time (&time_of_day);
  1230.       init_done++;
  1231. !     oprintf("%s Generated by %s %s %s (%s) from \"%s\"\n",
  1232.           comment, PROGNAME, VERSION, LAST_CHANGE_DATE, __DATE__, act_file);
  1233.   #ifdef VERBOSE
  1234.       oprintf("%s Compilation date/time: %s\n", comment, ctime(&time_of_day));
  1235. --- 643,649 ----
  1236.       time_t time_of_day;
  1237.       VOIDCAST time (&time_of_day);
  1238.       init_done++;
  1239. !     oprintf("%s Generated by %s v%s, %s (%s) from \"%s\"\n",
  1240.           comment, PROGNAME, VERSION, LAST_CHANGE_DATE, __DATE__, act_file);
  1241.   #ifdef VERBOSE
  1242.       oprintf("%s Compilation date/time: %s\n", comment, ctime(&time_of_day));
  1243. diff -w -c org/peep68k.c src/peep68k.c
  1244. *** org/peep68k.c    Wed Jun 15 15:50:29 1994
  1245. --- src/peep68k.c    Tue Jan 17 08:07:18 1995
  1246. ***************
  1247. *** 427,435 ****
  1248. --- 427,437 ----
  1249.       peep_head = 0;
  1250.       for(sw=swtables; sw; sw=sw->next) {
  1251.       nl();
  1252. + #ifndef JAS_PATCH
  1253.       if (IandD_option)
  1254.           dseg();
  1255.       else
  1256. + #endif /* JAS_PATCH */
  1257.           cseg();
  1258.       put_align((SIZE)AL_POINTER);
  1259.       put_label(sw->tablab);
  1260. ***************
  1261. *** 442,451 ****
  1262.       }
  1263.   #else
  1264.       /* generate the switch jump table as a series of 2-byte offsets
  1265. !      * This limits the amount of code the can be generated in a
  1266.        * function to less then 32K.  I believe that this is a reasonable
  1267.        * restriction.
  1268.        */
  1269.       {
  1270.           EXPR      *ep, *ep1;
  1271.           ep1 = mk_lcon(sw->beglab);
  1272. --- 444,459 ----
  1273.       }
  1274.   #else
  1275.       /* generate the switch jump table as a series of 2-byte offsets
  1276. !      * This limits the amount of code that can be generated in a
  1277.        * function to less then 32K.  I believe that this is a reasonable
  1278.        * restriction.
  1279.        */
  1280. + #ifdef JAS_PATCH
  1281. +     for(i=0; i<sw->numlabs; i++) {
  1282. +         ep2->v.l = sw->labels[i];
  1283. +         put_short(ep2);
  1284. +     }
  1285. + #else
  1286.       {
  1287.           EXPR      *ep, *ep1;
  1288.           ep1 = mk_lcon(sw->beglab);
  1289. ***************
  1290. *** 455,460 ****
  1291. --- 463,469 ----
  1292.           put_short(ep);
  1293.           }
  1294.       }
  1295. + #endif /* JAS_PATCH */
  1296.   #endif /* RELOC_BUG */
  1297.       }
  1298.       swtables = NULL;
  1299. diff -w -c org/symbol.c src/symbol.c
  1300. *** org/symbol.c    Wed Jun 15 15:50:30 1994
  1301. --- src/symbol.c    Tue Jan 17 08:07:26 1995
  1302. ***************
  1303. *** 112,120 ****
  1304.   key(p)
  1305.       register char *p;
  1306.   {
  1307. !     register int  sum;
  1308.       for (sum=0; *p; )
  1309. !     sum += *p++;
  1310.       return (sum % MAXKEY);
  1311.   }
  1312.   
  1313. --- 112,120 ----
  1314.   key(p)
  1315.       register char *p;
  1316.   {
  1317. !     register unsigned int sum;
  1318.       for (sum=0; *p; )
  1319. !     sum += (sum << 5) + *p++;
  1320.       return (sum % MAXKEY);
  1321.   }
  1322.   
  1323. ***************
  1324. *** 482,488 ****
  1325.   endparamblock()
  1326.   {
  1327.       SYM *sp;
  1328. !     BLOCK *block = scope.local;;
  1329.       for (sp = block->symbols.head; sp != NULL; sp = sp->next) {
  1330.       deletesym(sp, symbols);
  1331.       }
  1332. --- 482,488 ----
  1333.   endparamblock()
  1334.   {
  1335.       SYM *sp;
  1336. !     BLOCK *block = scope.local;
  1337.       for (sp = block->symbols.head; sp != NULL; sp = sp->next) {
  1338.       deletesym(sp, symbols);
  1339.       }
  1340. diff -w -c org/version.h src/version.h
  1341. *** org/version.h    Wed Jun 15 15:50:30 1994
  1342. --- src/version.h    Fri Jan 27 23:51:28 1995
  1343. ***************
  1344. *** 1,3 ****
  1345. ! #define VERSION            "4.4"
  1346. ! #define LAST_CHANGE_DATE    "10 May 94"
  1347. ! 
  1348. --- 1,2 ----
  1349. ! #define VERSION            "4.4.5"
  1350. ! #define LAST_CHANGE_DATE    "25 Jan 95"
  1351.